#!/usr/bin/perl
# cat.pl
use warnings;
use strict;

print "$. : $_" while <>;
